10 WI=49152
15 IFPEEK(WI)<>173ORPEEK(WI+1)<>9ORPEEK(WI+2)<>3THENLOAD"WINDOW 64",8,8
20 SYSWI
100 POKE53280,0:POKE53281,0
110 _W1,1,38,5,0,1,0,15
120 _P13,0:PRINT"WINDOW-DEMO
130 _P18,2:[153]"BY
140 _P13,4:PRINT"FRANK GRIMM
200 _W1,8,38,16,1,1,1,5
210 _P8,7:[153]"ES GIBT GROSSE WINDOWS
220 GOSUB10000
230 _W10,10,10,5,1,1,0,6
240 _P3,0:PRINT"UND
250 _P2,2:[153]"KLEINE
260 _P2,4:PRINT"WINDOWS
270 [141]10000
280 _W3,9,15,8,1,1,0,1
290 _P2,2:[153]"WINDOWS MIT
300 _P6,5:PRINT"RAND
320 _W23,9,15,8,1,0,0,1
330 _P2,2:[153]"WINDOWS OHNE
340 _P6,5:PRINT"RAND
350 [141]10000
360 _W22,10,15,8,1,1,0,7
370 _P0,3:[153]"REVERSE WINDOWS
380 _W2,10,15,8,0,1,0,7
390 _P0,3:PRINT"NORMALE WINDOWS
400 [141]10000
410 _W2,8,36,10,1,128[170]6,1,14
420 _P7,5:[153]"WINDOWS MIT 'SCHATTEN'
430 GOSUB10000
440 _W2,8,16,10,0,1,1,4
450 FORT=0TO15:POKE646,T:PRINT:PRINT" HOCHSCROLLENDE";
455 FORI=0TO100:NEXT
460 IFPEEK(198)=0THENNEXT:GOTO450
470 POKE198,0
480 _W20,8,18,10,0,1,1,4
490 FORT=0TO15:POKE646,T:PRINT"[145] RUNTERSCROLLENDE
495 [129]I[178]0[164]100:[130]
500 [139][194](198)[178]0[167][130]:[137]490
505 [151]198,0
510 _W0,7,40,13,0,0,1,3
520 _S1
530 [129]T[178]0[164]255:[153][199](T);:[130]
540 _P6,9:[153]"AUSGABE 
 STEUERZEICHEN";:_S0
550 [141]10000
560 _W7,8,25,10,1,1,0,1
570 _P4,1:[153]"NICHT SCROLLENDE
590 FORT=0TO100:PRINTTAB(10)T:NEXT
600 GOSUB10000
610 _W7,8,25,10,1,1,0,1
620 _P4,1:PRINT"SCROLLENDE WINDOWS
625 _W7,11,25,7,1,0,1,1
630 [129]T[178]0[164]100:[153][163]10)T:[130]
640 [141]10000
2000 _W1,8,38,12,0,1,1,7
2010 _P0,0:[153]"WAS 'UNTER' DEN WINDOWS LIEGT
2020 _P0,2:PRINT"WIRD IN EINEN PUFFERSPEICHER GERETTET.
2030 _P0,4:[153]"WENN EIN WINDOW GESCHLOSSEN WIRD
2040 _P0,6:PRINT"ERSCHEINT DAS DARUNTERLIEGENDE WIEDER.
2050 _P0,8:[153]"BITTE EINE TASTE DRUECKEN UM EIN
2060 _P0,10:PRINT"WINDOW ZU SCHLIESSEN
2100 [129]T[178]0[164]15:[141]10000:_W:[130]
2200 _W1,1,38,3,1,1,0,12
2210 _P2,1:[153]"UND HIER DAS LISTING DES PROGRAMMS
2220 _W0,5,40,20,1,0,1,12:GOSUB10000
2230 A$="G[207]2300":FORT=1TOLEN(A$):POKE630+T,ASC(MID$(A$,T,1)):NEXT
2240 POKE630+T,13:POKE198,T
2250 LIST
2300 GOSUB10000
9999 _C:END
10000 GOSUB10100
10010 WAIT198,1:POKE198,0:_W:RETURN
10100 _W1,20,37,3,1,128,0,2:_P9,1:PRINT"BITTE TASTE DRUECKEN":RETURN